home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar
/
1995
/
OCT
/
RM9510
/
unit1.pas
< prev
Wrap
Pascal/Delphi Source File
|
1995-06-25
|
947b
|
51 lines
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls;
type
TForm1 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Button1: TButton;
Database1: TDatabase;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Edit1.Text);
try
Query1.Open
except
on E:EDatabaseError do
if (E.Message <> 'Error creating cursor handle') then
MessageDlg(E.Message, mtInformation, [mbOK], 0);
end;
end;
end.